home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Herra
/
TIMWIN.ZIP
/
INIT.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-09-22
|
899b
|
32 lines
;ini -- initializes the LUTs (input & output) 23-7-87
; same as 'ini', but no text
;****************************************
int err
char naam[8]
IMAGE winim
int imnum=0
repeat
fprint naam 0 "%s" (getim WIN_BIT (++imnum)) ;256x256 winbeeld
winim = naam
if naam[0] != 0 era winim
until naam[0] == 0
lut 3 1
era fg
err = chk lut 1 1 1 ;input LUT: lineair
err = chk lut 2 1 1 ;LUT 1 (standard black/white)
if err == 0 ;if no LUTs or FG skip rest
lut 2 2 5 ;LUT 2 (false colours)
lut 2 3 1 ;LUT 3 (graphics)
lut 2 3 7 1 ;red in bit 1
lut 2 4 1 ;LUT 4 (CLP)
lut 2 4 7 1 ;red in bit 1
lut 2 4 8 2 ;green in bit 2
lut 2 4 9 3 ;blue in bit 3
lut 2 1 ; select LUT 1 (standard black/white)
endif
lcset standard
stop "Characterset STANDARD loaded"